home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 23 / AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso / Updates / DOS / DisplayBeep / Install / Install_DisplayBeep < prev   
Text File  |  1999-11-08  |  4KB  |  122 lines
  1. ; $Id: Install_DisplayBeep 0.1 1995/01/31 14:18:09 Gérard_Cornu Exp Gérard_Cornu $
  2. ;
  3. ; $Log: Install_DisplayBeep $
  4. ; Revision 0.1  1995/01/31  14:18:09  Gérard_Cornu
  5. ; Initial version.
  6. ;
  7. ;
  8. ;-- Language specific string definitions --------------------------------------
  9.  
  10. ; ENGLISH -----------------------------
  11. (procedure english (
  12.    (set MSG_INSTALL (cat "\nThis section lets you install the %s executable.\n\n"
  13.                          "If you choose to skip this part you'll be given the choice to"
  14.                          " install the documentation for %s."))
  15.    (set MSG_INSTALL_HELP "\n\n    hello ;-)")
  16.    (set MSG_DESTINATION (cat "Where would you like %s to be installed?\n"
  17.                         "(NO drawer will be created)"))
  18.    (set MSG_COPYING "Going to copy %s to %s.")
  19.    (set MSG_WHATDOC "Install the documentation in AmigaGuide\nformat for this language:")
  20.    (set MSG_NONE "none")
  21.    (set MSG_WHEREDOC "Where shall I put the documentation?")
  22.    (set MSG_YES "Yes")
  23.    (set MSG_NO "No")
  24.    (set MSG_PROCEED "Proceed")
  25.    (set MSG_SKIP "Skip this part")
  26.    (set MSG_THANKS "\n\nThanks for installing %s.")
  27.    (set docfile 0)
  28. ))
  29.  
  30. ; FRANÇAIS ----------------------------
  31. (procedure français (
  32.    (set MSG_INSTALL (cat "\n\nCette partie vous permet d'installer l'exécutable %s.\n\n"
  33.                          "Si vous choisissez de passer cette partie il vous sera alors"  
  34.                          " proposé d'installer la documentation pour %s."))
  35.    (set MSG_INSTALL_HELP "\n\n    Coucou ;-)")
  36.    (set MSG_DESTINATION (cat "Où désirez-vous installer %s?\n"
  37.                         "(AUCUN tiroir ne sera créé)"))
  38.    (set MSG_COPYING "Prêt â copier %s vers %s.")
  39.    (set MSG_WHATDOC "Installation de la documentation au format\nAmigaGuide pour ce langage:")
  40.    (set MSG_NONE "aucun")
  41.    (set MSG_WHEREDOC "Où dois-je mettre la documentation?")
  42.    (set MSG_YES "Oui")
  43.    (set MSG_NO "Non")
  44.    (set MSG_PROCEED "Installer")
  45.    (set MSG_SKIP "Passer cette partie")
  46.    (set MSG_THANKS "\n\nMerci d'avoir installé %s.")
  47.    (set docfile 0)
  48. ))
  49. ;------------------------------------------------------------------------------
  50.  
  51. (if (= @language "english")  (english))
  52. (if (= @language "français") (français))
  53.  
  54. (set vernum (getversion))
  55. (set osversion (/ vernum 65536))
  56. (if (>= osversion 39)
  57.    (set reader "MultiView") 
  58.    (set reader "AmigaGuide")
  59. )
  60.  
  61. (set installed 0)
  62.  
  63. (if (askbool (prompt (MSG_INSTALL @app-name @app-name)) (help MSG_INSTALL_HELP) 
  64.              (choices MSG_PROCEED MSG_SKIP) (default 1))
  65.    (   
  66.       (set dest_dir
  67.          (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  68.                  (help @askdir-help)
  69.                  (default @default-dest)
  70.                  (newpath)
  71.          )
  72.       )
  73.       (set @default-dest dest_dir)
  74.  
  75.       (copyfiles  (prompt (MSG_COPYING "DisplayBeep" @default-dest))
  76.                   (help @copyfiles-help)
  77.                   (source "/DisplayBeep")
  78.                   (dest @default-dest)
  79.                   (nogauge)
  80.       )
  81.       (set installed 1)
  82.    )
  83. )
  84.  
  85. (set docfile
  86.     (askchoice  (prompt MSG_WHATDOC)
  87.                 (help @askchoice-help)
  88.                 (choices "english" MSG_NONE)
  89.                 (default docfile))
  90. )
  91. (set docdir
  92.     (if (AND (= @user-level 2) (<> docfile 1))
  93.         (askdir (prompt MSG_WHEREDOC)
  94.                 (help @askdir-help)
  95.                 (default @default-dest))
  96.         (@default-dest)
  97.     )
  98. )
  99.  
  100. (select docfile
  101.     (copyfiles  (help @copyfiles-help)
  102.                 (source "/DisplayBeep.guide")
  103.                 (dest docdir)
  104.                 (newname "DisplayBeep.guide")
  105.                 (infos)
  106.                 (optional "nofail")
  107.     )
  108.     ("")  ; "none"
  109. )
  110.  
  111. (if (exists (tackon docdir "DisplayBeep.guide.info") (noreq))
  112.    (
  113.       (tooltype   (dest (tackon docdir "DisplayBeep.guide"))  (noposition) (setdefaulttool reader))
  114.       (set installed 1)
  115.    )
  116. )
  117.  
  118. (if (= 1 installed)
  119.    (exit (MSG_THANKS @app-name))
  120.    (exit (quiet))
  121. )
  122.